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MODULE OTSS$CCB ( 
e: OT Edit: 


re = '1-057' 
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BEGIN 
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it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is ts ie “herhe fs cyt eee UNDER A LICENSE AND MAY BE USED AND gd ta 
t* ONLY IN ANCE WITH THE TERMS OF SUCH itt a ad Me, 


& 
® 
& 
® 
& 
* 
© 
ie INCLUS THE 0 R * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
i THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE ®* 
® 
a 
® 
® 
® 
® 
® 
* 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


t* DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR > * ema OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL 
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; FACILITY: Language support library 

i ABSTRACT: 

; This module sup pperts pushing and popping of the CCB, the 

: common control block for the 1/0 part of the RTL. Currently, 
; ony BASIC uses this module, since FORTRAN does its own 
manipulations. 

| ENVIRONMENT: User mode, AST Level or not or mixed 

i AUTHOR: Thomas N. Hastings, CREATION DATE: 01-June-77 

i MODIFIED BY: 

Thomas N. Hastings, 01-June-77: VERSION 01 

' 
i] 
' 
‘ 
‘ 
J 
‘ 
' 
i] 


a 
get Ras RABSV_ ui bit TNH 19-SEP-77 
t RMS RABSV-TPT bit (truncate on pequent iol 3 SPUT not at EOF TNH 24-SEP-77 


RAB bits for read-ahead, write-behind, locate mode ml 21-OCT-77 
RNAL LITERALS. TNH 27-0ct- 
_ Pahov~? 
® 
Clear FAB after call to ian 6 TNH 9-Dec-77 


Have CB_POP Signal FATINT if LUB not active; 
Add routine te? CND_POP to conditionally pop if LUB active, 
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: 35 28 1! otherwise ee fos exit handler calls this). JMT 10-Jan-7 

5 1! Q-37 = Remove CB_CND_P 1 didn‘ _real want it, anyway... JMT 11-Jan-78 

; 0 1! 0-37 = Global register cép AT "eer be 

: ge 1 1! 0-39 = Change to STARLET Library. DGP 20-Apr-78 

3 6¢ $6 1! 0-460 = Change REQUIRE files for VAX ih my uild. DGP 28-Apr-78 

cs © 1! Q-461 = Change STARLET to RTLST ages t to saves conflicts. DEP 1-May-78 

; «6646 1! Q-462 = Make JSB Linkage. IN Mey-? 
; @& 5 1! 0-466 = Use FORSSGET_VA with new oo Fionel en 2nd arg. TNH 21-May-78 

i 66 0066 1 | 0-47 = Renove setting 18 to =1. Way-/8 
| = se4 1! “78 = nae san ty check of data A., TNH 10-June-78 

: 68 1 | 0-49 = Add call to FORSSSIG_DATCOR. "TNH 10-June-78 | 
3 9 9 1! O- - hdd FOR $$(B_G T entry fo for non-shared Eta fo OTSS$A_CUR_LUB. TNH 2-Aug-78 

3 0 0 1! 0O- - Fix AST ons it timi og a 

: 71 071 1! 0- - Change the name to FORCE.B and ughan e othe names of the 

os 007¢ 1/ REQUIRE files similarly. JBS 14-NOV- 

ee 0075 1! 1-00) = Update version number and copyright pes Be JBS 16=:.0V-78 

s £6 0074 1! 1- 8 = Change LUBS$B_LUN fe LUBSW_LUN. JBS 05-DEC-78 

7 oo 0075 1 : 1-003 - Change REQUIRE file names from FOR... to OTS... JSS 07-DEC-78 

: 7 Bo78 1 ! 1-004 = Include TNH's version veich uses a bit table to provide 

eo 0077 1! — re-entrancy. JBS 11-DEC- 

; 0078 1 ! 1-005 = Remove REQUIRE of ovenac, not needed. JBS 11-DEC-78 

3 4 st : } 1-006 - “r fines N xT, watch gets fee next LUN for the CLOSE loop 

; ‘ n 

ss.) «ST 0081 1 ! 1-007 = Fix codin raed = FORSSEG NEXT and make OTS$S$AA_LUB_TAB 

a = et 1! BS 18-DEC-78 

i & 0083 1 | 1-008 - Change file and module name to OTSCB and add specialized 

; (84 0084 1! BAS t entr point This is in preparation for recursive 

; «85 0085 1: 1/0. 9=DEC-78 

3; & B088 1 ! 1-009 = Add BASSSCB_CLEANUP. JBS 29-DEC-78 

s 87 0087 1 ! 1-010 = Add recursive I/O for BASIC. is 08-JAN-1979 

; 0088 1 ! 1-011 = Divide into three modules: OTSCCB, FORCB and BASCB. This 

; 0089 1! module, OTSCC contains the Language-independent code. 

; 90 0090 1! JBS 09-J 

3 4 43 : } 1-012 - mes. 15-JAN OrSssA g7gUR- LUB and set 1/0 Active when popping. 
: 9 0093 1! 1-013 - lex cases of ing recursive I/0. 

; | 694 94 1! Fixup. sone «one thats 

s 9 095 1 ! 1-014 = Fix an error in cots tng LIBSSTOP. {8s 16-JAN-1979 

; © B08 1! 1-015 = bush and DEAL the RMS t meout field in the RAB. JBS 16-JAN-1979 

; 6497 0097 1 ! 1-016 = Use me DEA . bit in the LUB to souerlaek deallocation of 

s 0098 1! the AB rather than disabling interrupts, and be 

; Wy 0099 1! pth dy a coker gree o that interrupts need never be 

: 100 100 1! disabled. JBS 5-5 

3 19) 101 1 ! 1-017 = Don't clear OTSS$$V_ 1olweR G if the LUN we just popped is the same 

o)' % § 1 § 1! ee we just finiShed using. (This is the most common case 

: 10 HF 1! of recursive 1/0.) JBS 24-JAN-197 

: 104 1 1 ! 1-018 - But if there is no popped unit, do clear OTsssv Joluends. (This is 

: 6105 105 1! the most common gaee of non-recursive 1/0! Jes 2 N-1979 

: 198 196 1 ! 1-019 - Divide into more prernat subroutines in an “atten t my creae 

s 107 1! up the common pushing and popping 188 85-1 by axtts 19) ng the 

: 108 + .¢ saving 9,9f unnecessary registers. 

3 + 44 i$ : : 1-020 - change l nhege rer $B°cB POP. H ~6C8 B.tg./5 J58 ate pusn and for 

: 111 Wt 1! 1-08) = Clear Pea agth alte t"buff er ye. ree hg JBS + A at lad 
3 M6 11 1: I= - Remove OTS$ we a ete g\een 1/0 using a stack 
at 11 1! frame instead. § b6-J 

7 (114 114 1 ! 1-023 - Change to double oe Re ol since these entry points are 


i 
| 
‘ 
| 


elieetanie’ 


sss 
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s 115 115 1! not for use by users. JBS 26-JAN-1979 

; 118 118 1 ! 1-024 = Deallocate the LUN after the sa Sa hay hes gown deallocated. 

s 171 117 1! Note that OPEN allocates it. JBS 26-JAN-197 

3 138 118 1 ! 1-025 = Make the table storage P even though it is used by INSQUE 

: 11 119 13 and REMQUE instruct ons, by nit alizin it at run time. 

: 120 1 >| This requires elses) ng ASTs during ini 10) lees ten put it is 

: 121 101 1/ done only once per image activation. JBS 28-JAN-197 

, 3 ¢ 1 ; 1 ! 1-026 = Rearrange the order of some of the mentey a tens 3 geke 

so 1 1! PUSH and POP really AST re-entrant. JBS 29-JAN-197 

: 124 124 1 ! 1-027 - Make these routines AST reentrant 

; 125 125 1! in ee face of deallocation at AST level. JBS 31-JAN-1979 

3; 3 § 1 $ 1 ! 1-028 - If LUB VAUSER BUF is set, don't cons ‘orate oe record 

3; 3 1 7% buffer, it belongs to the user! JBS 16-FEB-1979 

; 128 128 1 | 1-029 = Clear the buddy's buddy pointer. which points to us, when 

s te 129 1! deallocating. JBS 16-FEB-1979 

; 150 130 1 ! 1-030 - Print an error message if the ISB over lope the LUB. This can 

3: 6131 131 1! happen if the LUB is extended but the ISB is not edited to 

we ¢ 01 § es reflect it. JBS 21-MAR-19 

cee 01 1 ! 1-031 = Initialize LUBSQ_BFA_QUEVE. JBS 05-APR-1979 

Be 0134 1 ! 1-052 = Don't free the file name string unless it has been allocated 

; 135 0135 1! in virtual memory. JBS 10-APR-1979 

3 7 0136 1 ! 1-033 = Don't free the record buffer unless it has been allocated. 

3 6137 0137 1! JBS 10-APR-1979 

; 138 0138 1! 1-034 - Free the compiled format, if allocated. SBL 27-Apr-1979 

; «139 0139 1 ! 1-035 SBL1035 - Set ISBSW_FMT_LEN to zero on allocation. SBL 4-May-79 

3; 140 0140 1 ! 1-036 - Change CASE off résul€ of REMQUE to match what is 

: «(141 0141 1! actually gi ~n by that function. SBL 9-May-1979 

3 166 Bee 1 ! 1-037 = Change requir file name to OTSCCBREQ so as not to conflict 

; (14 01435 1! with this modu.e at ayefee build time. SBL 10-May-1979 

3 144 0144 1 ! 1-038 - Move clearing of ISBSW_FMT_LEN to allocation stage. Set, 14-May~1979 
3 «(145 aie? 1 ! 1-039 = Fix bug in compiled format deallocation. SBL 15-May-1979 

3 146 146 1 ! 1-040 - Fix another one. Lengt® must be passed as address of 3 word! 

: 147 0147 1 ! 1-041 = We overlooked the REMQUE in DEALLOCATE. SBL 17-May-1979 

: 148 0148 1! So, we have to construct a soup SBL 17-May-1979 

3; «(149 0149 1 ! 1-042 - Clear ISBSW_FMT_LEN during PUSH, so that POP won't try 

: 150 0150 1! to deallocate the format ronaturety. JBS 29-MAY-1979 

s 3% 0151 1 ! 1-043 = Set up LUBSA_BUDDY_PTR during allocate. JBS 30-MAY-1979 

3 136 8126 1 ! 1-044 = Make much of the data structure global 30 it can be 

s 15 0155 1! referenced dicegsty by FORSSCB. JBS 28-JUN-1979 

: 154 0154 1 ! 1-445 = Do ar RMS SWAIT if there is 1/0 active on the unit we 

s 155 155 1! are sterting, JBS 25-JUL-1979 

3; 156 136 1 ! 1-046 = Don't make OTS$Q_JO_ACTIVE global. JBS 26-JUL-1979 

: 157 157 1 ! 1-047 = Save the prompt Buffer only if it really is a prompt buffer. 

3 138 138 1! If | is a Key buffer, the key may be in read-only storage. 

3 «6159 159 1! JBS 09-AUG-1979 

: 160 160 1 ! 1-048 - Move the global parts of the data base to OTSS$SCCB_DATA | 
: 161 161 ! ; so this module need not be loaded if only FORTRAN programs 
; 166 166 ! are in the image. JBS 16-AUG-1979 

s 16 165 1 ! 1-049 = Return CCB as 0 from POP to indicate geal location. JBS 17-AUG-1979 
3 «6164 164 1! 1-32 - Correct an error in a comment. JBS 10-SEP-1979 

; 165 165 1 ! 1-051 = When deallocat nge LUBSA_BUF BEG points to the buffer; in Locate 
3 166 196 iz. mode, LUBSA_RBUF_ADR may gornt to RMS space. JBS 13-SEP-1 

; 16 167 1 ! 1-052 - Remove the references to ISBSW_FMT_LEN; now done in FORCB. 

; 168 198 1! JBS 18-SEP-1979 

; 19? 19 1 ! 1-053 - Resove re erences to LUB$Q_BFA_QUEUE; no longer used. 
3 170 170 1! JBS 18-SEP-19 

s 171 171 1°! 1-054 = Correct a minor typo. JBS 24-OCT-1979 
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1! 1: ‘ - ~ Use the ne ey r,t cell in the LUB. J : 13-NOV-1 

1 i Don’ t initia table gntries in by cORTRAN, JBS 14-JAN-1980 
1 Per e out slose B, ) “putes it Bo $$$10_BEG) 

! be to make locality RR og FM 

1 

1 !<BLF/PAGE> 


eye 


1 1 ' 
181 185 i SWITCHES: 
} i! 
1 1 § 
1 18s 
1 1 6 i LINKAGES: 
} ey 
1 1 $ REQUIRE "RTLIN:OTSLNK'; 
ae 
9 ; TABLE OF CONTENTS: 
1 . 
1 5 FORWARD ROUTINE 
1 4 INITIALIZE : NOVALUE, 
1 06 5 PUSH_FAKE : CALL_CCB 
1 § PUSH"ACTIVE : CACL CéB, 
06 ALLOCATE : CALL_CCB, 
8 CTS$$PUSH_CCB :~JSB_CB_PUSH, 
9 EALLOCATE : CALL_CCB ROVALUE, 
0 POP_ACTIVE : CALL~CCB NOVALUE, 
8 OTSSS$POP_CCB : JSB_CB_POP NOVALUE; 
i] 
: , i INCLUDE FILES: 
O63? REQUIRE ‘RTLML:OTSISB'; 
0806 REQUIRE ‘RTLML:OTSLUB'; 


REQUIRE "RTLIN:RTLPSECT’; 
REQUIRE "RTLIN:OTSCCBREQ'; 
LIBRARY ‘RTLSTARLE'; 


MACROS: 


rs 


BEUNISVSVEARRUN LS SHVenk uv soSwve AP avo ooewenkawrow 


NOUS WN SQW NO 


MACRO 
" TEST_LUB_ISB = 


' know about the L 
holding. 


4 

' 

! it will print only when the RTL 
t ub- 

' 

' 


ZIF (LUBSK_NEG_BLN NEQ ISBSK_NEG_LUB) 
ZTHEN 


8 a et tn a tt a a tk tt at a et a a a 4 a a a a Ls 2 te te 
— 


ee ee 
DAA & BELL LEE 


et a et a es a et a tt ss 4 


SOOONOUS WOOO 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


i Give an error message if the ISB and the 
! message explicit enough to tell | ag 

s be 
ISB dependency, and 
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Define LINKAGEs 


Set up the LUB table and the active queue 
Push fake record 

Push active LUB 

Allocate LUB/ISB/RAB 

Get the CCB, push old use of it 
Deallocate LUB/ISB/RAB 

Pop active LU 

Restore old use of CCB 


get length of ISB 

get length of LUB 

Define DECLARE_PSECTs macro 

Define interface to OTSSPUSH_CCB 
STARLET Library for macros and symbols 


LUB overlap. Try to make the 
giate ner exactly what to do, since 
ng modified by someone who does not 
herefore may need a lot of hand- 


eae 
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H 6 
“Sep 4 AX-11 Blis eth 
1er8eer ihe 93:98:88 | Heat he saR ecg 93509 
COMPILETIME 
VAL] = =ISB$K_NEG_LUB, 
VAL2 = =LUBSK"NEG-BLN; 
ZERROR “ ,Luasx NEG_BLN is not equal to 1SBSK_NEG_LUB.' 
, wltkouk® obebly "the 188 to. he LUB has béen éxtended: . file OTSISB.MDL, making the -F,86,' 
' ZNUMBER (VAL1), ¥ be -F /B,', NUMBER (VAL2)) : ° ‘the 
t; 


EQUATED SYMBOLS: 


LITERAL 


K_TOTAL_CCB_LEN = LUBSK_LUB_LEN + ISBSK_ISB_LEN + RABSC_BLN; ! Length of LUB+I1SB+RAB 


PSECT DECLARATIONS: 
DECLARE _PSECTS (OTS); 
OWN STORAGE: 


! declare PSECTs for OTS$ facility 


i¢ 
i The pet yeurre uadword is the header of the I/0 active queue. Items 
are manipulated on this queue using the INSQUE and REMQUE instructions. 


OTS$Q_IO_ACTIVE : VECTOR (2); 
' 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
LIBSGET_VM, ! Allocate virtual memory 
LIBSFREE. vA. ' Deallocate virtual memory 
LIBS$STOP™: NOVALUE, Signal a fatal error 


OTSSSFREE LUN; 


EXTERNAL LITERAL 
OTSS_FATINTERR : UNSIGNED (ZBPVAL); 


bell lecate a LUN 


condition value for FATAL INTERNAL ERROR 
16 IN RUN-TIME LIBRARY error. 


i The following externals represent the global part of the CCB 
data base. 


EXT 
“Drssay. CB. imt : VOLATILE, ' True if INIT done 
OTSSBAK : VOLATILE “OTSS$LUB_TAB ST / - 
AKoboK icon _MIN + LUBSK_LUN_MAR + T, LUBSK_ILUN_MINJ, ! Pointers to CCBs 
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: VOLATILE BITVECTOR, 
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so- 138s 3:36:88 = UMert satforscts:e35+4 
True if LUN a 1/0 active 
The current 


ie current Topical unit 
= ILDE, 0 = 1 1/0 in progress. 


Insert an item in a queue 

Remove an item from a queue 

Test bit, set it, return true if it was set. 
Test bit, clear it, return true if it was clear. 
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ib-se ety 7 9}: $6: 3 LIBRTL.SR ReiO orscee CB.832; 9° 3) " 
1 !¢ 

1! The B resyee'ey. f° peu set represents an item pushed onto the 

1! 1/0 Active List It contains the ISB, che prompt buffer, the 

1 | current size of the prompt buffer, and the timeout value from 

1 the RAB. 

1 

1 FIELD 

: PUSH J TER = 

1 PUSHSA_NEXT = (0, g. XBPVAL, }- ! Next item 

1 PUSHSA_PREV = (4, ZBPVAL, ! Previous item 

1 PUSHSL_STS = 0, SBPVAL, 0 ! RMS status 

1 SHSL_STV = Cid, 0, %BPVAL, a ' RMS extra status 

1 PUSHSW_LUN = (16, 0, 16, 1], ! Logical unit number 

1 PUSHSB_PSZ = (18, 0, 8, i. } rromee buffer size 

1 PUSH$B_TMO = [1 » 8. Ol, : 7 MS timeout value 

1 SH$V-10_ACT = {2 1,0), i The 1/0 Active flag 

1 SHSV-FARE = £3 my Oy M 3. i the fake’ flag 

1 PUSHSV_PMT = [ ee 1, 0), ' Set if there is a prompt buffer. 

1 PUSHST_PROMPT = 21; 0: 0 0), ' The prgmet by syi ier 

PUSHSK ISB = CLUBSK/PBUF_$12 + 21, 0, 0, 03 

1 

1 LITERAL 

: PUSHSK _LENGTH = 21 + LUBSK_PBUF_SIZ + ISB$K_ISB_LEN; ! Number of bytes to allocate 


a 


; 5 1 

: 1 

3 1 

: 18 
; 340 1 

3 1 : es 
; ’ 1 é 
3 4 1 

3 5 : 
: ; 1 e 
3 : 1270 
3s #6 1271 
; 350 127 
; 351 127 
3 26 1274 
3 3 1275 
; 54 127 
3 329 127 
3 28 1278 
o: 2 1279 
3 58 1280 
; 359 1281 
; 360 128 
: 383 5b 
; : 1285 
3 128 
; 128 
3 1288 
3 1289 
; 1290 
3 1291 
3 129 
3 1 

8 1 

3 1 

3 1 

8 1 

3 1 

3 1 

3 1 

3 1 

5 1 

3 1 

3 1 

: 1 

3 1 

: 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 


—— — OO See oooovod 
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ROUTINE INITIALIZE : NOVALUE = ! Set up OWN storage 


'e¢ 


FUNCTIONAL DESCRIPTION: 


set up the LUB table, 1/0 Active queue and OTSS$L_CUR_LUN. 


The LUB table and 1/6 active Queue must be set up at run time 
because they must be initialized with pferesses, and thi 
gennet be done at Link time or they will cease to be position 
ndependent. agg must be initialized wit) aqerenges because 
they are used by INSQUE and REMQUE to avoid disabling ASTs. 
CALLING SEQUENCE: 
IF (NOT .OTSSSV_CCB_INIT) THEN INITIALIZE (); 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
OTSS$$AA_LUB_TAB 
OTS$$0Q_TO_ACTIVE 
OTS$$V_IOINPROG 
OTS$$L_CUR_LUN 
IMPLICIT OUTPUTS: 
OTS$$AA_LUB_TAB 
OTS$$Q_TO ACTIVE 
OTS$$V_IOTNPROG 
$$L"-CUR_LUN 
OTS$$V~CCB-INIT 
SIDE EFFECTS: 
NONE 


‘ 
' 
i] 
len 
LOCAL 


i The following cell keeps track of whether or not ASTs were disabled 
when we were called. 


AST_STATUS; 

'¢ A 

! First disable ASTs. Then, if the initialization has not yet been 

i done, do it. The initialization will have been done if an AST went 
: off between the test of OTSS$$V_CCB_INIT and this point. 

AST_STATUS = S$SETAST (ENBFLG = 0); 


IF ( NOT .OTSS$$V_CCB_INIT) 


—> a 
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an a ak ta at a ss ss = Ss SS os ss Ss SS Ss ss sn ss ss 
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1 ~3 0-19 4 93:88:38 LIBRTL.SRCIOTSCCB.B32; . (4) 
THEN 
- BEGIN 
i We must do the initialization. First set the LUB table to be empty. 
! Note that LUBs in use by FORTRAN are not tough d. FORTRAN leaves the 
first longword non-zero for entries it is using. 
INCR LUN FROM LUBSK_ILUN_MIN TO LuBsk Le dO 
IF (,OTSS$AA_LUB_TAB CL UN EQC 0)” THEN 
OTSS$S$AA_LUB_TAB [.LUN, = OTSSS$AA_LUB_TAB C.LUN, 1] = OTSS$S$AA_LUB_TAB C.LUN, 0); 
1+ 
Now make the 1/0 active queue empty. 
e OTS$Q_IO_ACTIVE CO] = OTS$Q_IO_ACTIVE [1] = OTS$Q_IO_ACTIVE [0]; 
Mark that the initialization has been done, so it won't be done again. 
OTS$$V_CCB_INIT = 1; 
END; 
+ 
If ASTs were enabled at entry, re-enable them. 
IF (.AST_STATUS EQL SS$_WASSET) THEN SSETAST (ENBFLG = 1); 
RETURN; 
END; ! of routine INITIALIZE 
-TITLE OTS$$CCB 
-IDENT \1-057\ 
«-PSECT _OTSSDATA,NOEXE, PIC,2 
00000 OTS$Q_IO_ACTIVE: 
-BLKB 8 
-EXTRN LIBSGET_VM bigernee VM 
-EXTRN LIBSSTOP, OTSSSFREE CUN 
-EXTRN OTS$_FATINTERR, OTSS$V_CCB_INIT 
-EXTRN OTSS$SAA_LUB_TAB 
-EXTRN OTS$$V_TOINPROG 
-EXTRN OTSS$$A“CUR_LUB, OTSS$$L_CUR_LUN 
-EXTRN OTSS$SL“LVL-CTR, SYSSSETAST 
-PSECT _OTSSCODE,NOWRT, SHR, PIC,2 
003C 00000 INITIALIZE: 
-WORD Save R2,R3,R4,R5 : 1257 
5 G 06 E MOVAB SYS seTAsT. yy ; 
4 G E MOVAB OTSS$$V_CCB_INIT, RS 3 
3 GF 3 MOVAB OTS$Q_TO_ACTIVE, R ; 
‘ D 1 CLRL ~(SP) ; 1311 
65 01 FB 19 CALLS #1, SYSSSETAST 3 
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; $ ; } rk } ROUTINE PUSH_FAKE : CALL_CCB = ! Push a ‘'fake’’ active record 
3; 425 1 rk 1 !4¢ 

: ? 8 ! ? ! FUNCTIONAL DESCRIPTION: 

; 428 1 rk 7 | Push onto the I/0 Active queue a place holder. This is to 
3 ? ; : 29 } satisfy POP_ACTIVE when we can't actually push the CCB. 
: 431 1 26 1 ! CALLING SEQUENCE: 

3; 6 § 1355 1! 

; 43 1354 1 CALL PUSH_FAKE (); 

3 rh 1 2? 1! 

3; 435 1 § 1 ! FORMAL PARAMETERS: 

; 436 1357 1! 

3; 437 1358 1! NONE 

; 438 1359 1! 

3; 439 1360 1 ! IMPLICIT INPUTS: 

; 440 1361 1! 

3; 441 1366 a. * OTS$$0_10 ACTIVE 

3 44 136 1! OTSS$$L_CUR_LUN 

3; «44 1364 1! 

3 444 1a3? 1 ! IMPLICIT OUTPUTS: 

3 6445 1366 1! : 

; 446 1367 1! OTS$$Q_IO_ACTIVE Holds previous 1/0 on this LUN 
; 447 1368 1! 

3; 448 1369 1 ! SIDE EFFECTS: 

3 449 1370 1! ; 

; 450 1371 1! Calls LIBSGET_VM to get virtual memory. 

3; 6451 1376 1 !-- 

3 $26 1373 (1 

3; «645 1374 BEGIN 

3 454 1375 

3 455 1376 EXTERNAL REGISTER 

; 456 1377 CCB : REF BLOCK C, BYTE]; 

3; 457 1378 

; 458 1379 LOCAL 

3; 459 1380 § ! 

; e9 133) 1 Declare the pointer to the block to push. 

3 re 1388 PUSH : REF BLOCK CPUSHSK_LENGTH, BYTE] FIELD (PUSH_ITEM), 
; 46 1384 LUN; 

3 464 1385 

3; 6465 1386 LUN = .OTSS$$L_CUR_LUN; 

: $08 1337 ! 

3 ret 1356 Get virtual memory to hold the fake activation record. 

3; 469 1390 BEGIN 

: 470 1391 

3 «471 1 3 LOCAL 

3 $76 ' 7 GET_VM_RESULT; 

3 rt ! 2 GET_VM_RESULT = LIBSGET_VM (ZREF (PUSHSK_LENGTH), PUSH); 

3 rt} He IF ( NOT .GET_VM_RESULT) THEN RETURN (OTSSK_PUSH_FAIL); 

; 478 1 99 END; 

; 479 1400 '¢ 


Page 
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ens 
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3 i 1¢ ; } Copy the old LUN into the fake record, and mark it as fake. 

; 4 14 ‘PUSH [PUSH$SW_LUN]_= .LUN; 

: iss 16 : a PUSH EPuSHsy FARE = + 

: 485 1406 i Put this item on the 1/0 Active List. 

; 487 1408 INSQUE (.PUSH, OTS$Q_IO_ACTIVE); 

: 489 1410 2 ! We also set OTS$S$L_CUR_LUN to LUBSK_LUN_MAX+1 to prevent an 

: 490 1411 ! AST from pushing that Cus again. An extra push before this point 
3 $33 alg } does not cause any harm (only wastes a Little time). 

: 49 1414 OTSS$L_CUR_LUN = LUBSK_LUN_MAX + 1; 

+ 494 1415 RETURN” (OTS$K_PUSH_OK); 

; 495 1416 END; ! of routine PUSH_FAKE 


000C 00000 PUSH_FAKE: 
WORD 


-WO Save R2,R3 : 

53 000000006 00 9€ 0000 MOV OTS$$L_CUR_LUN, R3 : 

3 08 C2 0000 SUBL2 #8, SP ; 

5 DO 0000C MOVL  OTS$$L_CUR_LUN, LUN ; 

94 AE 9F OOOOF PUSHAB y H ; 

04 AE 0121 BF 3¢ 9018 MOVZ2WL #289, 4(SP) F 

04 AE 9F 0001 PUSHAB 4(SP5 F 

000000006 00 FB 0001 CALLS #2, LIBSGET_VM : 
4 E LBS Get _Vm_RESUCT, 1$ : 

0 0 BO MOV #3,7RO : 

5 046 AE D 1$ MOVL = PUSH, RO ; 

10 A 5 D 0 LUN, 16(RO) : 

14 =A 6 031 BISB2 #2, 20(RO) F 
00000000" EF 6 E 00035 INSQUE (RO), OTS$Q_I0 ACTIVE ; 
63 78 F 9A 0003C MOVZBL #120, OTS$$C_COR_LUN ; 

50 01 pO 90049 MOVL #1, RO : 

04 0004 RET : 


; Routine Size: 68 bytes, Routine Base: _OTSSCODE + 0058 
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497 ROUTINE PUSH ae (LOGICAL_UNIT, ! The new LUN 
49 RECURSIVE_10 ! True if really recursive 1/0 
4 ) : CALL_CCB = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


Place the ISB, etc. of the currently active logical unit on the 
1/0 Active queue so that another 1/0 statement may be started. 
The 1/0 statement to be started may be on the same or another 
logical unit as the one being interrupted. When the new 1/0 
statement is complete the old one will be continued, so the 1/0 
active queve has a first-in-first-out discipline. 


CALLING SEQUENCE: 
RESULT = CALL PUSH_ACTIVE (LUN, RECURSIVE_10); 
FORMAL PARAMETERS: 


BLS 


| heheheh ek ek ek ek ek ek ee ee ee ee 


WANA NANI WIIWnononorononorononen 


LOGICAL _UNIT.rl.v The new LUN 

RECURSIVE_JO.rl.v True if this LUN was already active 
IMPLICIT INPUTS: 

OTSSSAA_LUB_TAB 

OTS$$0_T0_ ACTIVE 


OTS$$L_CUR_LUN 
IMPLICIT OUTPUTS: 

OTS$$Q_I0_ACTIVE Holds previous 1/0 on this LUN 
SIDE EFFECTS: 

Calls LIBSGET_VM to get virtual memory. 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


% LOCAL 
Declare the pointer to the block to push. 
“ PUSH : REF BLOCK CPUSHSK_LENGTH, BYTE] FIELD (PUSH_ITEM); 


WN $9 ODNA VE WN $9 ODNOAVNE WN 0 ODNOU EWN OO CONOU SW" OU0O~ 


SN Srtietiet etve RRND = 2 3 SS OOO 
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ne 
OOnNOWw 


'¢ 
! If there is no need to push anything, push a fake activation 
record to satisfy POP_ACTIVE. 


IF (.OTS$$L_CUR_LUN GTR LUBSK_LUN_MAX) THEN RETURN (PUSH_FAKE ()); 


ee a ed ed od dd 
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O1ge$ 1o-Se8=1382 93:96:83 | Heat the soFe He -83544 9 6) 
' Check for this being an AST between the seer tna of OTSS$$V_IOINPROG 
and the setting of OTSS$$L_CUR_LUN te LUBSK LUN MAX + 1, IF it 
ush t yey with RECORSIVE_I0 clear 


s ¥e cannot B he C 
OTSS$V_IOINPROG will be cleared before the call fo POP_ACTIVE, 
and we might try to pop into a deallocated CCB. 


i- 


-—O 
es 


ee 


IF ((.OTSSS$L_CUR_LUN EQL .LOGICAL_UNIT) AND ( NOT .RECURSIVE_10)) THEN RETURN (PUSH_FAKE ()); | 

CCB = .OTSSSAA_LUB_TAB C.OTSSSL_CUR_LUN, 0]; | 

i if the queue is empty then the deallocation goge has removed the LUB 
nce 


WN —OOONOus 


! 
! 
! from the LUB table but has not yet popped OTSSSL_CUR_LUN. Si 

! the deallocation code will finish its deallocatioOn no matter what 
! we do here we need not push anything. If any 1/0 is tried to this 
' LUN it will create a new LUB. The recursive eg may be set 

! neediessly, but that will only cause a precise n languages which 
! do not support recursive 1/0, and, actually, the higher 1/0 has not 
i quite finished yet, so that is OK. 


PUPVDV SV SUSVSVSISISISISISISIS 


BSSVSARANASSSISEALEARVIS SEITZ 


IF (.CCB EQLA OTSSSAA_LUB_TAB C.OTSS$L_CUR_LUN, 0]) THEN RETURN (PUSH_FAKE ()); 


t+ 
! The LUB is still allocated, do some consistency checks. 
' We cannot check OTSSS$AA CUR LUB since we may be in an AST 


AVIS SSLEARANLESSLSALAVSS 


MEW =O OONOU SW OOONOUE WN 


that 

rs} : occurred after the update of OTS$$AA_CUR_LUB but before OTSS$$L_CUR_LUN. 
3g CCB = .CCB + (.CCB = CCB CLUBSQ_QUEUE)); 
Be 0 IF (.CCB CLUBSW_LUN) NEQ .OTSSSL_CUR_LUN) THEN LIBSSTOP (OTSS$_FATINTERR); 
86 8 + 
4 : Get virtual memory to hold the old ISB, etc. 
89 0 "BEGIN 

LOCAL 

GET_VM_RESULT; 


GET_VM_RESULT = LIBSGET_VM (ZREF (PUSHSK_LENGTH), PUSH); 
IF ( NOT .GET_VM_RESULT) THEN RETURN (OTSS$K_PUSH_FAIL); 
END; 
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99 '¢ 
t's} : Make sure there is no RMS 1/0 active on the RAB. 
68 ‘ 
60 IF (.RECURSIVE_10) THEN SWAIT (RAB = .CCB); 
6 $ i Copy the ISB and a few other things that need to be preserved 
ait ; over recursive 1/0 into the block we just allocated. 
609 § ; CHSMOVE (ISBSK 136 ,cEn CCB = ISBSK_ISB_LEN - LUBSK_LUB_LEN, PUSH CPUSH$X_ISB)); i 
610 0 PUSH CPUSHSV_PAT) = .CCB CRABSV_PMTJ; 


egg 


.EXTRN 
OFC 00000 PUSH_ACTIVE: 
WORD 
$7 000000006 i HF ROVA 
00000077 &F 6 ? cHPL 
06 AC GF 01 CMPL 
4 1 : BNEG 
1 08 aC E 1B BLBC 
67 00 O00IF 18: vL 
9 0000000060040 7£ 00022 ROvAa 
D1 CMPL 
2 BNEQ 
86 AF FB 28 CALLS 
04 RET 
50 58 5B C3 38: SUBL3 
8 58 AOR GE MOVAB 
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; 611 1531 

3 ois 1 § {en (.PUSH CPUSHSV_PMT]) 

; 6} 1 

; 614 1534 oeein 

; 615 1535 E ¢ the CRAB$B_PS7Z) $8 fOAget Per 2. PUSH CPUSH$T_PROMPT)); 
3 616 PUSH PUSH$SB_PSZ] = <CCB tris B_PSZ); 

: 618 1 

; 619 1 § PUSH eee TMO) = .CCB CRABSB_TMO]; 

; 620 1540 PUSH SHSL_ = .CCB CRABSL— ~$183: 

; 621 1541 PUSH it sie AY = .CCB BA $L Lait 

; 6 : 1 4¢ PUSH [PUSHSV Act = .CCB CLUBSV_ 16. ACTIVE); 

3 2 Z : tz de PUSH LPUSHSV “FARE = 0; 

: 625 1545 i Record the logical unit number so that POP ACTIVE knows where to 
: ? $ 1368 Z restore this item when it is popped. 

; 6 8 1348 , PUSH CPUSHSW_LUN) = .CCB CLUBSW_LUN]; 

; 6 1350 i Put this item on the 1/0 Active List. 

; 632 1358 " _ INSQUE (.PUSH, OTS$Q_I0_ACTIVE); 

: ? : 1338 That LUB is no Longer the active one, mark it so. 

3 o3¢ 1336 , 008 CLUBSV_IO_ACTIVE] = 0; 

: ree 1558 i We also set OTSS$L_CUR_LUN to LUBSK _LUN_MAX+1 to prevent an 

: 639 1559 ! AST from pushing that CUB again. An extra push before this point 
3 8 1269 _does not cause any harm (only wastes a Little time). 

: 64¢ 1368 OTS$$L_CUR_LUN = LUBSK_LUN_MAX + 1; 

; 64 156 RETURN (OTSS$K PUSH OK); 

; 644 1564 1 END; ! of routine PUSH_ACTIVE 


SYSSWAIT 
ave R2,R3, Ww eg R6,R7 

or eese _CUR_LUN, R7 * 

bf cum wun, #119 
TS$$L_CUR_LUN, LOGICAL_UNIT 

SCR 

OT SssAk LUB_ tTAS+O4CR0], RO 

(RO), CCS 

cB, R 

4 


#0, PUSH_FAKE 
§eekos fetal: CCB 
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1471 
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; Routine Size: 219 bytes, Routine Base: _OTSSCODE + O009F 


f 7 
TS$SCCB 16-Se 
88 ie 
67 (6 AB 10 0 FS 40 
000000006 F dD 8 
000000006 00 ‘ | 4 3 “8 
ne ontt HOH SR 
000000006 pe % 4 i 
6E 
09 08 ac €9 § 5$: 
5B 0D 
000000006 9 01 F ? 
04 AE 7C 6$ 
65 A6 FEEO 8 008C F 
50 07 «AB 1 F 
14 AG 1 9 F 
F 14 =A 5 
15 Ab 3 8B 2 8 3 3 
ee oy 2 8 te 
1 A6 1f AB ? OAd 7$ 
08 A6 08 AB 7D ita 
50 FC AB 1 2 EF 944 
iD 01 0 0 FO 00089 
14 AG 02 8A 000BF 
10 = A6 C6 AB BO ote 
00000000" EF 8 E Q00C 
FC rs] A OOOCF 
3 78 =8F 9A 00003 
Pi ca Be 


pa19be 12:96:38 


AX-11 Bliss-32 V4.0-74 Page 17 
LIBRTL.SRC OF echB oso, 9 6) 
#0, #16, -58(CCB), OTS$$L_CUR_LUN ; 1504 
#oTss FATINTERR : 
#i, LIBSSTOP : 
pus : 1514 
#289, 4(SP) : 
4(SP5 : 
#2, LIBSGET_VM : 
Get _Vm_RESUCT, 5$ $ 1516 
#3,7RO : 
RECURSIVE. 10, 6$ + 1523 
#1, SYSSWAIT : 
Push. Rs + 1529 
#188. - gaccce), 101(R6) : 
#6, #1, 7(CCB), RO + 1530 
R ; He abl 9(R6) fas 
52(CCB), RO ; 1838 
RO, a48(CCB), 21(R6) : 
(cB), 18(R6) : 1536 
(CCB), 19(R6) : 1539 
(CCB), 8(R6) + 1540 
i, #1. 34 cece) RO + 1542 
RO, #0. #1, 20(R6) : 
#2. 20(R6) + 1543 
-58(CCB), 16(R6) : 1548 
(R6), OTS$Q_10_ACTIVE : 1552 
#2, -4(CCB) : 1556 
#120, OTS$$L_CUR_LUN : 1362 
#1, RO : 156 
3 1564 


1 
7 
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9138 i ~300 71382 93:98:98 MTaRTL snelorscte 63004 . H 
; ef ! i } ROUTINE ALLOCATE (LOGICAL_UNIT) : CALL_CCB = ! Allocate LUB/ISB/RAB | 
; 1 1 !¢¢ | 
69 1968 1 | FUNCTIONAL DESCRIPTION: 
; H 
. @ ; 1 5 1} oh lecate the LUB/ISB/RAB for this logical unit, watching out for 
; 6 3 f | ASTs which may do the allocation as we are running. 
; 654 74 | CALLING SEQUENCE: | 
: 6 6 i CALL ALLOCATE (.LOGICAL_UNIT) | 
; é : r i FORMAL PARAMETERS: | 
; 660 23 LOGICAL_UNIT.rl.v The logical unit number for this CCB 
; 66¢ 13 1 1! IMPLICIT INPUTS: 
; 66 1 ¢ 1! 
; 664 15 1! OTSS$SAA_LUB_TAB 
3; 665 15 1} 
; 666 1585 1 ! IMPLICIT OUTPUTS: 
; 66 15 1! 
; 668 15 1! OTSS$$AA_LUB_TAB 
; 669 1588 1! ccB 
: 670 1589 1! 
3; 671 1590 1 ! SIDE EFFECTS: 
3 o7¢ 1331 1! 
; 67 1 3 1! Calls LIBSGET_ VM to get virtual memory. 
: ort 133? ! } May call LIBSFREE_VM to free that same virtual memory. 
; 676 1595 1 
3 667 1298 BEGIN 
3 ors 159 
3; 6 1398 EXTERNAL REGISTER 
: ret] 12% CCB : REF BLOCK C, BYTE); 
; 68¢ 1601 LOCAL 
; 68 1606 INSQUE_ADDR, ! Address for INSQUE instruction 
: 684 160 REMQUE ADDR, ' Address for REMQUE instruction 
; 685 1604 CCB_ADBR; ! Address of the allocated CCB 
BE 
; 688 160 i Test the definitions of the LUB and ISB for consistency. This is 
3 pats 1608 H purely a compile-time test; it generates no code. 
; 691 1610 g | TEST_LUB_ISB; 
; 69 1ol¢ i We must allocate. This case is a Little complex since an AST may 
; 694 161 ! allocate the LUB. We handle this by preparing the LUB and then 
; $9? 1ei8 checking to see if an AST ailocated one. If so, we deallocate ours. 
; $99 1616 "BEGIN 
; $98 161 
3 § 1913 LOCAL 
; 700 1619 GET_VM_RESULT; 
: 702 1834 GET_VM_RESULT = LIBSGET_VM (ZREF (K_TOTAL_CCB_LEN), CCB_ADDR); 


4? os ht at die or ke | 
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if ( IF ( NOT .GET_VM_RESULT) THEN RETURN (OTSSK_PUSH_FAIL); 

END; 


'¢ 
' Clear the newly allocated LUN ond RAB (but not ISB). Adjust the 

; Contents of the control block pointer (CCB) so that it points to 
! the beginning of the RAB. (The ISB and LUB grysece the RAB using 

! negative offsets with respect to register CCB.) 

Set the unit number in the newly allocated LUB. 
cce = CCR _ADBR: 

CHSFILL (07 LUBSK LUB_LEN + RABSC_BLN, .CCB + ISBSK_ISB_LEN); 


CCB CLUBSW_LUN ~LOGTCAL_UNIT 


MEW Oo NOUS UT 
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Initialize RAB to constants which never change. 

Block ID, block Length, and bit to make $PUT do SUPDATE if 

record exists. Also truncate on sequential $PUT not at EOF. 

Note: TPT bit depends on FOP TRN bit being set in order to take effect. 
Set read-ahead, write-behind and locate mode for GETs. 


CCB CRABSB 4 = RABSC_BID; 
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; = .C(B + 1SB8K_1S6 LEN + LUBSR_LUB_LEN; 

; = H 

; 0 

: 

; 4 - 

; 5 CCB LRABSB_BLN) = RABSC_BLN; 

3 § CCB CRABSV_UIF) = 1; 

3 CCB CRABSV_TPT) = 1; 

; 8 CCB CRAB$V~RAH) = 1; 

; 9 CCB LRABSV_WBH) = 1; 

; ? ee CCB CRABSV_LOC) = 1; 

; 2 i Set up LUBSA_BUDDY_PTR. If this CCB is not its own buddy, this 

3 i : field will be changed during open. 

3 5 CCB CLUBSA_BUDDY_PTR] = .CCB; 

; 5 i See if an AST has allocated this LUB/RAB/ISB while we were preparing 

3; t 8 ! ows above. If so, we use the allocated one. If the LUB was 

; 740 9 2! allocated by an AST it cannot have 1/0 active, since the AST must 

3; 741 660 ' complete any 1/0 it starts. In setts of this, it cannot be 

: % $8) deallocated because we have OTSS$$V_IOINPROG set for the LUN. 

; re ees INSQUE_ADDR = OTSSSAA_LUB_TAB C.LOGICAL_UNIT, 1); 

> 74 665 IF ( NOT INSQUE (CCB CLUB$Q_QUEUE], ..INSQUE_ADDR)) 

; 74 068 THEN 

; 748 66 BEGIN 
3; 749 088 '¢ 

3; 750 ! This CCB is not the first in the queue, which means that an AST | 
3; «6751 670 ' has allocated one and put it in the queue before us. Remove ours 

3 738 of) ; and deallocate it. We will use the LUB previously on the queue. 
; , | ers : REMQUE_ADDR = OTSSS$AA_LUB_TAB [.LOGICAL_UNIT, 1); | 
: 7 $ 675 CASE (REMQUE (..REMQUE_ADDR, CCB)) FROM 0 TO 3 OF 

. £ 676 SET 

3 £ 3 67 

3; 7 678 (2) : 
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‘+ 
! Somebody removed the other entry. This should never happen. 


LIBSSTOP (OTSS_FATINTERR); 
(3) : 


-o 
i= 


'¢ 
The queue was empty. This is unreasonable because OTSS$$V_IOINPROG is set. 


LIBSSTOP (OTSS_FATINTERR); 
C0] : 
'¢ 


i ALL is well. We can now free the CCB we just removed. 
i. It had better be the one we allocated. 


4 S+=608 + (.CCB = CCB CLUBSQ_QUEUE])) NEQA (.CCB_ADDR + ISB$K_ISB_LEN + LUBSK_LUB_LEN)) 


LIBSSTOP (OTSS_FATINTERR); 
a. CINRANGE, OUTRANGE) : 


i This should never § happen: the only possible values from the REMQUE 
function are 0, 2 


5 LIBSSTOP (OTSS_FATINTERR); 


'¢ 
Now free the LUB we allocated. 
; BEGIN 
LOCAL 
FREE_VM_STATUS; 
FREE_VM_STATUS = LIBSFREE_VM (ZREF (K_TOTAL_CCB_LEN), CCB_ADDR); 
IF ( NOT .FREE_VM_STATUS) THEN LIBSSTOP (OTSS_FATINTERR); 
END; 
'¢ 


' Now $9'fo the CCB address. It must still be there because of 
; OTSS$$V_IOINPROG. 


CCB = “OTSSSAA. LUB_TAB C.LOGICAL eee O33 
A Fi CCB + (7CCB™= CCB CLUBSQ_QUEUES) 


RETURN (OTSSK_PUSH_OK); 
END; !' of routine ALLOCATE 
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O1FC 00000 ALLOCATE: 
WORD 


sexe ae prs, a R5,R6,R7,R8 


Hit Ah a7 
KA_LUB_TAB+68, 


ye 4(SP) 


LIBSGET al 
cet vn RESUCT, 


So ADDR, 3 8 
#0, (SP), #0, #168, 188(CCB) 


288(R11), CCB 
LOGICAL_UNIT, -58(CCB) 
Hi 409, 7 (ccBS 


IT, RO 
OTSS$$AA~LUB_ fAB+68(RO), INSQUE _ADDR 
sgeiccey. a0 ( INSQUE_ADDR) 
LOGICAL_UNIT 
OTS$$AA~LUB fabr6arn0), REMQUE_ADDR 
pet ADDR), 


40 - ie RO 


Schos fetes 0 R1 


#288, CCB BASDR. RO 
» RO 


REE _VM 
STATOS, 6$ 
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OTS$$CCB 18-se -1984 01:22: AX-11 Bliss-32 V4.0-74 Pa 3 OTS 
otsss ene e=} 8s P3:88i88 | eta Odes Fe Hb B54 of} 1-( 
GLOBAL ROUTINE OTS$SPUSH_CCB ( | Get a CCB, pushing old 
LOGICAL. UNIT i Logical unit for this CCB 
) : JSB_CB_POSH = 
'o¢ 


FUNCTIONAL DESCRIPTION: 
i Load resister CCB with a pointer to the LUB/ISB/RAB for this 
logical unit. If no LUB has been allocated, allocate one. 
If there is e} ready 1/0 active push down the old ISB, etc. 
POP_ACTIVE will restore it. We already know that this LUN is 
not in use by FORTRAN. 
i CALLING SEQUENCE: 
CALL OTSSSPUSH_CCB (Llogical_unit.rl.v) 
| 


i FORMAL PARAMETERS: 


WN “OC OONOUS WN" OVOONOUS 
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! Note that PUSH_CCB must be entered before POP_CCB, so this is the 
! first reference to this data base, except for FORTRAN, which is checked 
! for in INITIALIZE. 


H 17 1 3] 
3 17 j 1 3] 
; 1734 «(1 3 1 
; Fe | :] 
; ve : 
; 17 5 ‘4 +1 
3 1740 1! . 
| ee : 
; 1508 1 i :1 
; 1744 1! | 
174 1 i 2 
: 1509 1! 31 
; 1748 1 > 
; 1749 1! : 1 
3 1750 1! 3 1 
3 Baz 173) 1 lLogical_unit.rl.v Logical unit -=- identifies CCB : | 
; HH 1788 : IMPLICIT INPUTS: : | 
; 837 1735 OTS$$V_CCB INIT i] 
: 839 1737 ; OTS$$0_IO_ACTIVE i] 
; 841 1759 { IMPLICIT OUTPUTS: i 
; Beg 1761 1! ccB Set to adr. of allocated LUB/ISB/RAB 31 
; 844 1096 1! OTS$$Q_10 ACTIVE Holds previous I/0 on this LUN - 
; 845 1763 1! OTS$AA_LUB_TAB Set of adr. of allocated LUB/ISB/RAB 31 
; 846 1764 1! for logical_unit 31 
; «847 1765 1! LUBS$W_LUN Set to logical_unit 3:1 
; 848 1766 1! LUB$V_I0_ACTIVE Set to indicate active 1/0 3 1 
3 ths 17er ' OTS$$0_CCB_INIT Always set to 1. : j 
; 831 1769 i SIDE EFFECTS: 
; HE 1771 1: May call LIBSGET_VM to get virtual memory. 31 
; 854 1776 1; In unusual cases, may call LIBSFREE VM to free virtual memory. 31 
; 36 177? ' The first time entered, calls INITIALIZE, which disables ASTs. . { 
: 85 1775 1 :1 
eH gcc : 
: 860 1778 EXTERNAL REGISTER :1 
3 61 1729 CCB : REF BLOCK C, BYTE); : ! 
; 8 1781 LOCAL : 1 
: Hg 1? § RECURSIVE_i0; ! =1 if we are doing recursive 1/0 : 
: 1784 2 !+ :1 
; 86 \? 5 !' If this is the first entry, call INITIALIZE to set up OWN storage. : 
: 17 3 ‘| 
; 1788 31 
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ho RBI : 
; 7 1799 IF ( NOT .OTSS$V_CCB_INIT) THEN INITIALIZE (); : 1 
: Bre 1598 $1 2 
: 87 1794 2! Count the level counter. This must be done before the OTS$$V_IOINPROG : | 
; 87 1795 ! bit is set, otherwise an AST seuss tine the OTSS$SV_IOINPROG bit set but : 1 
; 878 1796 ' Level counter -1, which would mean that the PUSH and POP routines ; 1 
3 444 ad would not be salted end OTSs$v. 1O1NPROG would get cleared by the AST. : 
; 881 1799 ¢ | OTSSSL_LVL_CTR = .OTSSSL_LVL_CTR + 1; i] 
; HS 1801 i Mark that this LUN has 1/0 active so that its LUB (if it has one yet) : 1 
; Bae 1338 t will not be deallocated. If it was already active, remember that. ; 
; 886 1804 = RECURSIVE_10 = (TESTBITSS (OTS$$V_IOINPROG C.LOGICAL_UNIT = LUBSK_ILUN_MIN])); : 
; 888 1308 i If 1/0 is currently active, push the presently active unit. 3 1 
Les ib : 
; 891 1809 IF (.OTSSSL_LVL_CTR NEQ 0) i] 
; $98 1811 BEGIN :1 
; 894 slg 3 1 
: 895 131 LOCAL 3 1 
; 898 HF PUSH_RESULT; 3 | 
: 298 1318 PUSH_RESULT = PUSH_ACTIVE (.LOGICAL_UNIT, .RECURSIVE_10); : ! 
; 900 1818 3 IF (.PUSH RESULT NEQ OTS$K_PUSH_OK) THEN RETURN (.PUSH_RESULT); : ! 
; 90¢ 1820 END; : 1 
. eee : 
> 905 18 : i allocate the LUB/1SB/RAB if necessary. If an AST allocates it : 1 
3 a08 1824 i must release ours. Note that, because OTS$$V_IOINPROG is set, % an : 1 
; 907 18 5 2 AST allocates the LUB it will not be deallocated. : | 
; 908 18 ; ; CCB = .OTS$$AA_LUB_TAB C.LOGICAL_UNIT, 0); : | 
; git i 3 If _(.CCB NEA OTSSSAA_LUB_TAB C.LOGICAL_UNIT, 03) i] 
; 318 1831 BEGIN i] 
; 913 1838 The CCB is already allocated. Adjust register CCB to point to it. : ! 
; $17 1838 CCB = .CCB + (.CCB - CCB CLUB$Q_QUEUE)); : | 
: 919 1839 ELSE i] 
: 920 1 3 BEGIN 3 | 
: 952 1840 LOCAL E 
; 3 § 1841 ALLOCATE_RESULT; 

: 3 5 ' ‘§ ALLOCATE_RESULT = ALLOCATE (.LOGICAL_UNIT); 

: 9 $ 1845 IF (.ALLOCATE_RESULT NEQ OTSS$K_PUSH_OK) THEN RETURN (.ALLOCATE_RESULT); 


7 
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END; 


Ooo 


\+ 
! Set OTS$$L_CUR_LUN to be the current logical unit number. This is 
;_ the cell that Controls pushing. 

OTSSS$L_CUR_LUN = .LOGICAL_UNIT; 


i Mark this LUB as being the active one, and, if it is participating 
in recursive 1/0, mark that, too. 


CCB fLuBsv_10 ACTIVE) = 1; 
CCB CISB$SVIRECURSIVE) = .RECURSIVE_I0; 


14 
Set OTSSSA_CUR_LUB to point to the new current LUB. 
OTSSSA_CUR_LUB = .CCB; 
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6 4 + 
47 5 ! Initialize the STTM_STAT field of the ISB. We clear these bits so 
48 6 ! that the initialization routines at UDF and REC levels can set them 
r? it } if necessary (unusual) or do nothing to have them cleared. 
51 9 2 CCB CISBSV_P_FORM_CH] = 0; 
26 0 CCB CISB$V-DOLLARI = 0; 
5 1 CCB LISBSV_USER Aten = 0; 
54 ; CCB CISB$V-SLASA) = 0; 
55 87 CCB CISBSV_LAST_REC) = 0 
56 874 CCB CISB$V_DE_ERCO = 0; 
2 15 1 CCB CISBSV~LIS_HEAP) = 0; 
959 877 i When we set OTS$$V_IOINPROG we tested it to see if 1/0 was already active 
960 878 ! on this LUN. If it was we must return this information to our 
a0) 444 caller because some languages do not permit recursive 1/0. 
968 881 2 
+4 HY IF (.RECURSIVE_10) THEN RETURN (OTSS$K_PUSH_ACT); 
966 884 RETURN (OTS$K_PUSH_OK); 
967 885 END; ! End of routine OTS$$PUSH_CCB 


52 dD 00000 OTSSSPUSH CCB 


§ R 
SE 4 C2 9002 SUBL2 #4, SP : 
: Db 00 PUSHL ; 
05 000000006 E8 00007 BLBS  OTSS$$V_CCB_INIT, 1$ : 1791 
FD94 Ss FB 0005 CALLS #0, INITIACIZE ; 
000000006 b6 00013 1$ INCL. OTSS$$L_LVL_CTR + 1799 
52 6E ci 19 ADDL #8, LOGICAC_UNIT, R2 > 1804 
02 000000006 00 £3 i? BBCS R2, OTS$$V_IOINPROG, 2$ ; 
; 06 037 INCL ; 
04 AE D 9 28 MOVL RO, RECURSIVE_10 : 
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000000006 98 
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Routine Base: 


96 AB 
04 AE 


04 
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_OTSSCODE 
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a3 

0D 

DD 
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ae 
: 8 " 3$: 
D BRep 

D 05 

13 0005 
He 
oD 0 4$ 
FB O08 

D1 0006 

12 0006A 

a Sa 
4 007 

F 4 

D0 0008 

94 0008 

E9 00088 

DO O008F 

11 4 8 

DO 00094 6$: 
CO 00097 7$: 
BA 9009A 

05 0009C 
0259 


1b-se 
1 ~Sep-1 
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AX-11 Bliss-32 v4 .05749 
LIBRTL.SRCJOTSCCB.B32; 
QTSSSL_LVL_CTR 

RECURSIVE_10 

LOGICAL_UNIT 

#2, PUSA_ACTIV 

SH_RESOLT, # 


p 
OTSS$$AA_LUB_TABCR2], RO 
(RO), CC 


$ ge 

cB CCB, RO 

BRO) cépj, ccB 
LOGICAL_UNIT 
#1, ALL 
ALLOCATE_RESULT, #1 
LOGICAL_UNIT, OTS$$L_CUR_LUN 
#2, -4(TC 
-166(CCB), RO 
RECURSIVE_10, #0, #1, 1(RO) 
CCB OTS$$A_CUR_LUB 
RECURSIVE_10, 6$ 

#2, RO 

a 
#1, RO 
#8, SP 
#*M<R2> 


row it 


1809 
1816 


1818 
1827 
1829 
1835 
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370 ROUTINE DEALLOCATE : CALL_CCB NOVALUE = ! Deallocate LUB/ISB/RAB 


i | 


~N 


time or deallocate fhe 
REMQUE_ADDR = OTSSSAA_LUB_TAB C.CCB CLUBSW_LUN], 0); 
vince | males (..REMQUE_ADDR, CCB_ADDR)) FROM O TO 3 OF 


CO, 3) : 
'e 
! Jero means that there was more than one entry in the queue. 


| 
| 

3 ! } 

: 464 1 1 tee 

3 ie, : ay ! FUNCTIONAL DESCRIPTION: 

: 975 1 % 1 i Deallocate the LUB/ISB/RAB for this Logical unit, including 

3 3r8 ! 37 ! the allocated structures attached to it. Also, deallocate the 

; 978 1895 1! 

; 9 1 38 1 ! CALLING SEQUENCE: 

: 980 1897 1 | | 

; 981 1 1s 1! CALL DEALLOCATE () 

; 9 ¢ 1 1} 

3; 8 1900 1 ! FORMAL PARAMETERS: 

; 984 1901 1! 

: 985 1306 1! NONE 

3 386 1903 1! 

: 98 19046 1 ! IMPLICIT INPUTS: 

; 988 1905 1! 

: 989 1308 1! OTSSS$AA_LUB_TAB 

; 990 1907 1! ccB 

: «991 1908 1! 

3 338 1909 1 ! IMPLICIT OUTPUTS: 

; 99 1910 1! 

; 994 1911 1! OTSSS$AA_LUB_TAB 

; 995 13i6 1! ccB 

3 298 1915 1! 

; WwW 1914 1 ! SIDE EFFECTS: 

: 998 1915 1! 

; 999 ay 1! Calls LIBSFREE_VM to free virtual memory. 

; 1000 191 1 !-- 

; 1001 1918 1 

s 1008 1919 BEGIN 

; 100 1920 

3; 1004 1921 EXTERNAL REGISTER 

; 1005 19 § CCB : REF BLOCK C, BYTE); 

3 1908 wy 

; 100 1924 OCAL 

: 1008 1925 REMQUE_ADDR !' Address for REMQUE instruction 

> 1009 19 6 CCB_ADBR : REF BLOCK co BYTE) 

: 1010 19 BUDBY_CcCB : REF BLOCK CO, BYTE, 

; 1011 1928 LUN; 

: 1018 1980 5 16 

3: 1014 1931 !' We now deallocate the LUB/ISB/RAB. An AST will not deallocate under 

3; 7% 19 § ! us because it will find OTSSSV_IOINPROG set at PUSH time, and w 

3 : 3 ! therefore set ISB$V pecusive SO as not to clear OTS$$V_IOINPROG at POP 

3 1 1935 

3 1 19 

: 1 19 

31 1938 

3 1 1939 

3 7 1940 

3 1 1941 

: 1 1306 

s 1 1 


sssssssscesessess 
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| 
; 1027 1944 ! This Nop jes that we have done a CLOSE in an ae 3 which went off after | ; 
+ 1945 : INS UF but before the compensating REMQUE in PUSH_CCB. ‘ 
31 1 46 ! This should never happen because 1SB$V_RECURSIVE ‘ 
; : : 9 ; will be set in this case. | : 
: 1 ¢ 1969 i Three implies that there is nothing in the queue. | : 
3 7 1950 : This means that an AST deallocated the LUB, which should not happen ‘ 
; 18 : 3 1 because of the ISBSV_RECURSIVE test. ; 
; 19 19 § : LIBSSTOP (OTS$_FATINTERR) ; : 
3 19 1955 3, (2) : : 
; 1040 1987 i The queue is now gmpty: This is correct. We can now free the LUB. ‘ 
3 Ie) 19 8 : Note that PUSH_CCB will allocate a new LUB if an AST goes off to it ; 
3 1 § 195 ! here, and will carefully not push the LUB we are deallocating. ; 
; 104 1960 ¢ : First perform a consistency check. : 
: 1¢3 1962 5 
; 1066 1968 IF (.CCB_ADDR + (.CCB_ADDR = CCB_ADDR CLUBSQ_QUEUE]) NEQA .CCB) THEN LIBSSTOP (OTSS$_FATINTERR); : 
; 1048 1965 2 CINRANGE, OUTRANGE) : 3 
Py 7° e 
: 1050 1969 ! This mans never happen. The only possible values of REMQUE are : 
; 193) 1308 0, 2 and 3. : 
: 1088 1970 5 LIBSSTOP (OTS$_FATINTERR); ; 
; 1054 1971 TES; ; 
we BBE. : 
> 1057 1974 i Since the LUB/ISB/RAB can no longer be used, clear its OTS$$V_I0INPROG : 
: 1938 1976 ! bit. An AST after this point will not indicate recursive 1/0. ; 
; 1060 197 ; 
; 1061 1978 IF (TESTBITCC (OTS$S$V_IOINPROG C.CCB CLUBSW_LUN] - LUBSK_ILUN_MIN])) THEN LIBSSTOP (OTSS$_FATINTERR); : 
21 eee : 
; 1064 1981 i Clear this LUN's buddy's buddy pointer, which points to us. : 
; 1066 1988 ‘  BUDDY_CCB = .CCB CLUBSA_BUDDY_PTR); : 
: 1068 1985 IF (.BUDDY_CCB NEQA 0) THEN BUDDY_CCB CLUBSA_BUDDY_PTR] = 0; : 
Be : 
; 1974 1988 @ | Free the record buffer if we allocated it. ; 
: 1998 1990 5° 
: 1074 1991 IF (( NOT .CCB CLUBSV_USER_RBUFJ) AND (.CCB CLUBS$A_UBF] NEQA 0)) ; 
1076 1998 THEN EGIN 
iW Use aie 
; 1 1 199% FREE_VM_STATUS; 
3 1081 Hb 4s 4 FREE_VM_STATUS = LIBSFREE_VM (ZREF (.CCB CLUBSW_RBUF_SIZE]), CCB CLUBSA_UBF)); 
; 1088 2000 IF ( NOT .FREE_VM_STATUS) THEN LIBSSTOP (OTSS$_FATINTERR); 
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! 
: Remember the logical unit number, since we will need it in a minute. 
' 
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LUN = .CCB CLUBSW_LUN); 
Now, at last, we can free the CCB itself. 


r~ 


BEGIN 


LOCAL 
FREE_VM_STATUS; 


FREE_VM_STATUS = LIBSFREE_VM (ZREF (K_TOTAL_CCB_LEN), ZREF (.CCB - ISBSK_ISB_LEN - LUBSK_LUB_LEN)); 
IF ( NOT .FREE_VM_STATUS) THEN LIBSSTOP (OTSS_FATINTERR); 
END; 
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3 3 

; 1 : 

3: 1 5 

3 7 ; 

s 1 

; 1091 

3 136 0 

; 109 010 

3 1094 11 

3; 1095 \¢ 

3 7 1 

3; 109 14 

. et 

: ; 89 aH IF ( NOT .FREE_VM_STATUS) THEN LIBSSTOP (OTSS_FATINTERR); 

> 110 01 CCB CLUBSV_VIRT_RSNJ = 0; 

3 7 88 020 END; = _ 

1108 059 5 

3 ! Free the prompt buffer, there is one. 
: $ 3 § F h buf f if th i 

3 : oS , 5 BEGIN 

3 111 0 5 LOCAL 

: 0 8 FREE_VM_STATUS; 

3 , \ 3 , A CRABSL_PBFJ NEQA 0) AND (.CCB CRABSV_PMT])) 

s 491 0 § BEGIN 

3 1 i 9 ; FREE_VM_STATUS = LIBSFREE_VM (ZREF (LUBSK_PBUF_SIZ), CCB CRABSL_PBFI); 

; : } is IF ( NOT .FREE_VM_STATUS) THEN LIBSSTOP (OTSS$_FATINTERR); 

3; 1 0 END; 

3 7 

3 1 
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3 1 
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END; 
7° 
! Free the file name string, if it is allocated. | 
IF (.CCB CLUBSV_VIRT_RSN)) 
THEN 
BEGIN 
LOCAL 
FREE_VM_STATUS; 
FREE_VM_STATUS = LIBSFREE_VM (ZREF (.CCB CLUBSB_RSLJ), CCB CLUBSA_RSNJ); 
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; 1161 ! Since the CCB points to deallocated storage, clear register CCB so | . 
: 1108 35 } that, if anybody refers to it, we will get an access siolation. : 
: 1146 ? 1, CB = 03 | ; 
3 1148 : ! If the user's program is still running (i.e., if we are not in the ; 
3 1146 ! exit handler) then the user must have done an explicit CLOSE to cause : 
: 13e3 5 ' this LUB to be deallocated. In goat case we must clear the LUN . 
3 114 ! allocation so he can do another OPEN on this same Logi cat unit. ; 
; 1150 ! Note that LUNs less than zero do not have allocation bits since they 2 
; 1 ; : : cannot be opened explicitly by the user. | : 
11 0 : 
3 1154 071 IF (.LUN GEQ 0) ‘ 
3 i 5 143 THEN ; 
3 1137 Boe IF ( NOT OTSSSFREE_LUN (LUN)) THEN LIBSSTOP (OTSS_FATINTERR); : 
3; 1159 076 RETURN; ‘ 
; 1160 07 END; ! of routine DEALLOCATE ‘ 
003C 00000 DEALLOCATE: 3 
-WORD Save R2,R3,R4,R5 3; 1887 3 
55 000000006 00 9€ 00002 MOVAB LIBSFREE_VM, R5 : : 
4 44444444 00 9E 00009 MOVAB LIBSSTOP, Ri ; 3 
53 000000006 8F D 9019 MOVL #OTS$_FATINTERR, R3 : : 
SE 0c 001 SUBL ne SP ; 3 
50 (6 AB OO1A CVTWL 46 =58(CCB), RO > 1936 ; 
51 0000000060040 ; ph OVA OTSS$AA_LUB_TAB+64(CROJ, REMQUE_ADDR 3 F 
52 00 Bt 0 0026 REMQUE @0(REMQODE_ABDR), CCB_ADDR : 1938 $ 
0 DC Q002A MOVPSL RO s 3 
50 50 02 01 EF 0002C XTZV. s#1, eee RQ. RO 3 3 
03 % Hh CF 00031 CASEL RO, #0, # 3 3 
0018 000A 001 001 0035 1$: . WORD $e-12°- F : 
$-1$,- : 3 
$-1$ 5 : 
9 11 0030 BRB $ : 1953 3 
50 3 go OO3F 2$ SUBL3 CCB_ADDR, CCB_ADDR, RO 3: 1963 
2 58 A04 f 043 MOVAB 88(RO)CCCB_ADDRI, RO F 
B 5 9 04 CMPL RO, CCB 3 
5 13 48 BEQL 4 3 
> DD 4D 3$: PUSHL R 3 
4 .-¢ 4F CALLS #1, LIBSSTOP g 
0 (6 AB 3 52 4$: CvTW s8« cca). RO : 1978 
; C é ADDL #8, RO 3 
05 000000006 £4 BBSC RO. OTSS$S$V_IOINPROG, 5$ 3 
dD PUSHL R : 
$f 01 F CALLS #1, LIBSSTOP 3 
0 BB A p 5$: VL =78(CCB), BUDDY_CCB ; 1983 
0 BEQL 6$ 3; 19 
BB OA ps C CLRL -72(BUDDY_CCB) : 
FF AB 95 OF 6$: TST8 -1(CCB) ; 1991 
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Routine Base: 


265 bytes, 


3; Routine Size: 
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ROUTINE POP_ACTIVE : CALL_CCB NOVALUE = ! Pop old active unit 


is 


'o¢ 


FUNCTIONAL DESCRIPTION: 


Restore the status of an interrupted 1/0 qtotenens using the 
information saved when the statement was interrupted. Ll of 
the ISB is restored 


~~ 
Ulwnv—OO0e 


In gone unusual 
cases there is no CCB to restore to, so only OTS$$L_CUR_LUN is 
restored. 


and a few other things. 


i CALLING SEQUENCE: 

i CALL POP_ACTIVE () 

i FORMAL PARAMETERS: 

i NONE 

i IMPLICIT INPUTS: 

i The DEALLOC bit in the LUB 


oO: 
ovovowno oo 
Seegepeeeses 


ooo SANS IO OO ao 
LoL SSesss FERS Sale F ON SSS SFSR 


a ee el ce el cel el cl el el el el ell el cell cell el cel 


1 1 
1 1 
1 1 
1 1 
1 1 
1 1! 
1 1! 
1 1! 
1 1 . 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
i 100] 
191 1 i IMPLICIT OUTPUTS: 
1 1 : 1 i The ISB, and some other fields of the CCB 
: ; ¢ ' CcB The restored CCB 
! 106 i SIDE EFFECTS: 
; +s : Calls LIBSFREE_VM to free virtual memory. 
1194 110 1 
: 95 11 BEGIN 
1 3$ 118 EXTERNAL REGISTER 
' + \"3 CCB : REF BLOCK C, BYTE); 
1200 118 LOCAL 
1201 11 PUSH : REF BLOCK CPUSHSK_LENGTH, BYTE) FIELD (PUSH_ITEM), 
1 4 118 LUN; ! Logical unit number being restored 
13 3 3. 
1205 121 i Get an activation record off the 1/0 Active queue. It had better 
1 1 § ! be there. 
} ig 4” 
; : 10 ; é IF (REMQUE (.OTS$Q_IO_ACTIVE (OJ, PUSH)) THEN LIBSSTOP (OTSS_FATINTERR); 
: 1211 1 '¢ 
3 : 1 : 3 : Fetch the logical unit number associated with this record. 
: 16 130 a LUN = .PUSH CPUSHSW_LUNJ; 
: ' \¢ ' § : If this is a fake activation record, just store the LUN. 
5 1218 1 3 
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ee ee ee ee el el ee el ee el el el el el el el el el cl el el el el el el cl el cl cl cel cells cells el ls lls alls cls cls cls ly cells ls cells cally cells cls calls alls cells cals 


NOW 


WANA 


em aa aa ak a ak at ak ak a a a a a “a i“ 8 a a a a a a a st tt 


at pat tg te epee & RPA PAN DP oN PAAASACAAOAS MIMI BP PEEL PEE 


1Eogeortgee 1-228 yanett Bling $2. v4_03742 


4 . -PUSH CPUSHS$V_FAKE)) 


OTSSSL_CUR_LUN = .LUN 
ELSE 
BEGIN 


Gear LUN does not have 1/0 in progress then something is very 
! wrong. 
le 


IF ( NOT .OTSSSV_IOINPROG C.LUN = LUBSK_ILUN_MIN]) THEN LIBSSTOP (OTSS$_FATINTERR); 


'¢ 

i There was previous 1/0. Restore the ISB, etc of the pushed unit. 
i Because of ASTS, we must store OTSSSL_ CUR_LUN before copying 

i data from the 1/0 Active entry because yo the LUN indicated by 
; j OFSS8L. CUR_LUN will get pushed. 


TSS$SL_CUR 

= 0188 RA Lua “is .. C LUN, 
s + (CCB FP, 63° - *cce CLUB$Q_QUEUE)); 
PUSH CPUSH$V_10_ ACT); 
te USHSL_STS 


HS 
PUSHSL_ST Wie 
PUSH$B_TMO 
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RABSL_STV = PUSH 
RABSB_TMO -PUSH 


PUSH CPUSHS$V_PMT]) 


+= MAOOOrOOrOeOo 
=ZFVF FMOOOAOO 


- 
"ses 
ai TRABSB pats -PUSH CPUSHS$B_PSZ]; 
a yell (.CCB CRABSB _PSZ2J, PUSH” CPUSHST_PROMPT], .CCB CRABSL_PBFI); 
- CHSMOVE (ISBSK_ISB_LEN, PUSH CPUSHSX_I1SB), .CCB - ISBS$K_ISB_LEN - LUBS$K_LUB_LEN); 
i If the LUN has been marked for deallocation (which means that it 
i has been closed but not deallecated yet because it has I/0 in 
‘ progress) F) then clear the statement type field so that all 


i continued 1/0 will fail. The statement type must be set so that 
t the pans dy Language will get an error when 1/0 continues. 


ire fs CCB CLUBSV_DEALLOC)) 
CASE Aft CLUBSB_LANGUAGE] FROM LUBSK_LANG_MIN TO LUBSK_LANG_MAX OF 
CLUBSK_LANG_FOR) : 


CCB CIS6$B_ STTM_ TYPE] = ISBSK_FORSTTYLO = 1; 


CLUBSK_LANG BAS] : 
ccB Cs888 STIM_TYPE) = ISBSK_BASSTTYLO - 1; 


CLUBSK LANG NONE) : 
CCB CISB$B_STTM_TYPE) = 0; 
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COUTRANGE) : 
LIBSSTOP (OTSS_FATINTERR); 

TES; 

END; 


‘+ 
} We are done with the item from the 1/0 Active List, free it. 


BEGIN 


LOCAL 
FREE_VM_RESULT; 


FREE_VM_RESULT = LIBSFREE_VM (ZREF (PUSHSK_LENGTH), PUSH); 
IF ( NOT .FREE_VM_RESULT) THEN LIBSSTOP (OTSS_FATINTERR); 
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END; 
RETURN: 
END; ! of routine POP_ACTIVE 
O3FC 00000 POP_ACTIVE: : 
» WORD Save R2,R3,R4,R5,R6,R7,RB,R9 
59 900000006 00 9€ 0000 MOVAB OTS$$L_CUR LUN, R9 
58 90000 G 00 9 0000 MOVAB LIBSSTOP 
37 00000006 8F »D 0019 MOVL HOTS$ FATINTERR, R7 
E 08 ¢ 017 SUBL2 #8, SP 
04 AE 00000000" FF OF OO1A REMOUE aofs$a_10_ACTIVE, PUSH 
93 DD 00024 PUSHL R 
68 01 FB 00026 CALLS #1, LIBSSTOP 
56 04 AE p 0029 1$: MOVL PUSH, R6 
52 10 A6 0020 CVTWL Vecrg> LUN 
05 14 6 1 €1 00031 BBC #1, 20(R6), 2$ 
69 2 bo 0 NOVL UN, OTS$$L_CUR_LUN 
53 08 A oF 0038 2$: MOVAB 8(R2), R3 
05 000000006 00 2 E 0 F BBS RS. OfS$$V_IOINPROG, 3$ 
DD 00047 PUSHL R 
68 o1 FB 049 CALLS #1, LIBSSTOP 
69 é p 4C 3%: MOVL LUN, OTS$S$L_CUR_LUN 
0000000060043 7F O004F PUSHAQ OTS$$AA_LUB-TABLR3) 
B 9E 00 $ VL. a(SP)+, "CCB 
50 B 5B § SUBL3 c¢ cfs RO 
8 58 A04B VAB (ko) CcéB), ccB 
000000006 6 5B OD 6 MOVL ors $A_CUR_LUB 
FC AB 01 1 16 AB F $ INSV (R6), #1, 781, -4(CCB) 
8 AB 08 a6 7 : MOV (R6) acct ) 
AB A6 9 7 MOVB §. 31(CCB) 
Ab 0 f 7A BBC O¢RG) 4$ 
AB 12 A6 90 0007F MOVB 18(R6), 52¢CCB) 
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5 34 AB OA MOVZBL RO 
30 BB 15 Ae 8 moves ihe Cote ) 8(¢¢B) 
FEE cB 65 A OoBc =F 5 4$: MOV 10 thos (CCB) 
. 0 D8 AB F 0009 eeteg | f “46 ci icce), bs és, 
oof 00op oore Hi 5$: . WORD ra: aA a 

? DD 000A7 PUSHL 7 

68 s, a9 CALLS #1, LIBSSTOP 
B AC BRB 8 

FF71 CB A A 6$: OVE #26, -143(CCB) 
FF71 CB 94 00085 7$: CLRB = = 143 (CCB) 
4 AE 9F 00089 8$: PUSHAB PUSH 
een ee G0c§ PUSHAS ciSP5 smth 
000000006 00 Q FB 00¢ CALLS LIBSFREE_VM 

05 £8 OOOCC BLES Fae. VM_RESULT, 9$ 
57 DD OOOCF PUSHL 

68 01 FB 90001 CALLS if LIBSSTOP 

04 00004 9$: RET 


; Routine Size: 213 bytes, Routine Base: _OTSSCODE + O3FF 
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grees 1 = ep-19 4 93:96:38 LIBRTL.SRCIOTSCCB.B32; aD 
3 GLOBAL ROUTINE OTSS$S$POP_CCB ! Restore old CCB 

: JSB_CB_POP NOVALUE = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


—> —) 


WN OC OONAUES WN “OO OOVNOU EWN" OOONOu 


Restore the 1/0 system to its state before the call to 
PUSH_CCB. Clear $V_IO_ACTIVE. If the 1/0 active List 
is empty, clear OTSSS$A_CUR_LUB, otherwise set it to 

its previous value and-restore its ISB, etc. 


If virtual memory for a compiled format is allocated for this 
ISB, it is freed. 


CALLING SEQUENCE: 
CALL OTSSSPOP_CCB () 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


AAP TOPIPIPIPIPUNNIDD 2 4 SS SS 
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iV ODO NOU EWI OOO NOM PWNI—O Doe we 
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is 

3 ; ccB 

3 4 OTS$$AA_LUB_TAB 

i 13 4 OTS$$Q_TO_ACTIVE 

; ; 43 IMPLICIT OUTPUTS: 

; 45 CCB Set to previous LUB/ISB/RAB 

: 13 46 OTS$$Q_10 ACTIVE Holds one fewer item 

3 15 47 LUB$V_TO_ACTIVE Cleared to indicate I/0 no longer active, 
3; 13 48 but may be set by the pop from the 

: ; : 4 1/0 Active List. 

: 336 31 SIDE EFFECTS: 

; $35 38 May call LIBSFREE_VM to free virtual memory. 

: 1340 55 

: 41 2 BEGIN 

; 38 28 EXTERNAL REGISTER 

3 4 CCB : REF BLOCK C, BYTE); 

36 oo Ss , 

; $ 6¢ i If the LUB has been marked for deallocation (by CLOSE) and there is 

3 8 6 ' no 1/0 active, deallocate it. If there is 1/0 Active, the 

3 ) 64 ! deallocation must be defered until after all of the 1/0 has completed 
3; 1350 65 ! to insure that the continued 1/0 will get the ‘1/0 continued to closed 
3; 1351 66 ! file’ error. 

ae BR gE 

: 32 i! IF (.¢CB CLUBSV_DEALLOC) AND ( NOT .CCB CISBSV_RECURSIVE))) 

: 1356 71 DEALLOCATE () 


M 2 
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ELSE 
7 BEGIN 
| This is no longer the unit with 1/0 active. 
CCB CLUBSV_IO_ACTIVE] = 0; 
See if 1/0 will continue on this unit. It will continue if 
iy te et is set, which means that PUSH CCB was called 


! 

i 

i 

i in progress on this LUN. We make this test before 
restoring the ISB because we et be restoring to the same 
i 

ie 


+ 
UN, and the former 1/0 may b e top level of 1/0 for this 
LUN, and if so it will have ISBSV_RECURSIVE clear. 


IF (C.OTSSSL_LVL_CTR EQL 0) AND (.CCB CISBSV_RECURSIVE])) THEN LIBS$STOP (OTS$_FATINTERR); 
IF ( NOT .CCB CISBSV_RECURSIVE)) 
THEN 


DONA UVLE WN OC OONOUS wr 
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90 


IF (TESTBITCC (OTSS$V_IOINPROG C.CCB CLUB$W_LUN] - LUBSK_ILUN_MINJ)) 
LIBSSTOP (OTSS_FATINTERR); 


NNN 
Sse 
OOOO 
wm 


'¢ 

i Since OTS$$V_IOINPROG may now be clear, our CCB may be deallocated, so 
' we cannot touch it again. For that matter, we may have deal located 

' it ourselves above. 
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' 
{ 
If there was previous 1/0, restore it. Otherwise return to the idle 
i] 
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387 363 

388 308 

389 304 ! state. 

300 she !- 

91 06 

4 307 IF (.OTSS$L_LVL_CTR NEQ 0) 

9 08 THEN 

94 09 POP_ACTIVE () 

95 10 SE 

96 311 BEGIN 

97 31§ OTSS$S$A_CUR_LUB = 0; 

398 1 OTS$$L_CUR_LUN = LUBSK_LUN_MAX + 1; 

99 14 END; 

400 15 
401 1 '¢ 

408 1 i Decrement the level counter. If we are at the top level the level 
chi $13 t counter will go from 0 to -1. 

405 0 OTSSSL_LVL_CTR = .OTSSSL_LVL_CTR - 1; 

406 1 RETURN; : 
407 2 END; ! of routine OTS$$POP_CCB 

08 FF AB 04 €1 00000 OTS$$POP_CCB:: 


N 8 
OTS$$CCB 16-Sep AX-11 Bliss-32 V4.0-74 Pa 38 T 
ett 14-Sep 71982 9}: $6; 3 barge TSCCB.B32; 9 47) x 
BBC -1(CCB) 3 2269 : 
07 97 AB £8 0005 BLBS Hrs (CCB) 1s'° : ; 
FE1G) OCF 0 Fe 0 9 CALLS #0, DEALLOCATE + 2271 ; 
D 1 OF BRB 4 : ; 
FC AB 08 8A 00010 1$ BICB2 -4(CCB) t 2277 ; 
000000006 ° 0014 TSTL OFéssr _LVL_CTR + 2287 ; 
11 O1A BNEQ $ F : 
1 97 ABE doi¢ BLBC 8 =._- = 105 (CCB : : 
000000006 BF DD 00 PUSHL yrs FATINTERR : ; 
000000006 00 1 FB 00026 CALLS LIB$STO : ; 
iC 97 AB ; 0020 33 BLBS a 5(CCB), fs ; 3289 : 
20 C6 AB : 00 \ . cvTW -5 B( CCB) RO 3 2292 : 
0D 000000006 00 i £4 000 8 BBSC 4 S$$V_IOINPROG, 4$ ; : 
000000006 8F DD 0004 PUSHL nots FATIATERR > 2294 : 
000000006 00 1 fF 0046 CALLS Tes ; : 
000000006 90 a3 4$ st Orgs nie CTR ; 2307 ; 
FED! CF 0 FB 808 CALLS #0, POP_ACTIVE + 2309 ; 
—E 11 0005A BRB S : : 
000000906 0 D4 005¢ 5$: CLRL  OTS$$A_CUR_LUB : 231 : 
000000006 00 F 9A 0006 MOVZBL #120, OTSSSL_CUR_LUN : 231 H 
000000006 00 07 O006A 6$: DECL  OTSS$$L_LVL_CTR + 2320 ; 
05 00070 RSB > 2322 ; 
; Routine Size: 113 bytes, Routine Base: _OTSSCODE + 04D4 ‘ 
; 1408 323 1 ; 
: 1409 324 1 END ‘End of module OTS$$CCB : 
; 1410 325 1 3 
1411 326 0 ELUDOM : 
PSECT SUMMARY 
Name Bytes Attributes 
_OTSSDATA 8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC.ALIGN(2) 
“OTS$CODE 1349 NCYEC;NOWRT. RD. EXE. SHR. LCL. REL. CON. PIC.ALIGN(2) 
| 
Library Statistics 
woewcese Symbols -------- Pages Processing | 
File Total Loaded Percent Mapped Time 


~-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 20 0 581 00:00.8 | 


gugegcce if: e013 93:96:38 = Hanh Oshe fot ects :835¢ Page 43 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:OTSCCB/OBJ=0BJ$:OTSCCB MSRC$:OTSCCB/UPDATE=(ENH$:OTSCCB) 


Size: 1349 ¢ + 8 data bytes 
Run Time: 721.3 

Elapsed Time: 1:51.46 

Lines/CPU Min: $367 
Lexemes/CPU-Min: 37228 

panery Used: 185 pages 

Compilation Complete 


| a neem ane - = 


| N91 | AH-BT13A-SE 7 T CORPORATION 


VAX/VMS V4.0 3 PROPRIETARY 


